#!/usr/bin/perl
################################################################################
# Acts like Unix tee.
################################################################################

#-------------------------------------------------------------------------------
open(OUT, ">> $ARGV[0]") || die("\nCan't create log file" );
while ( <STDIN> ) { print $_; print OUT $_; }
close OUT;
